home *** CD-ROM | disk | FTP | other *** search
- @echo off
- rem This is a test menu system for use with:
- rem A N S I V i e w 1 . 0
- rem Copyright 1993 Robert D. Bouman
- rem August 12, 1993
-
- :ansiview
- av testmenu.ans "Please make selection from menu : " /k /c
-
- rem errorlevel processing -
-
- rem A = 65; a = 97
- rem B = 66; b = 98
- rem C = 67; b = 99
- rem Q = 81; q = 113
-
- rem errorlevel statments most be ordered from highest to lowest
-
- if errorlevel==114 goto ansiview
- if errorlevel==113 goto end
- if errorlevel==100 goto ansiview
- if errorlevel==99 goto printreg
- if errorlevel==98 goto avhelp
- if errorlevel==97 goto readme
- if errorlevel==82 goto ansiview
- if errorlevel==81 goto end
- if errorlevel==68 goto ansiview
- if errorlevel==67 goto printreg
- if errorlevel==66 goto avhelp
- if errorlevel==65 goto readme
-
- rem else...
-
- goto ansiview
-
- rem View README.1ST
-
- :readme
- cls
- type readme.1st | more
- pause
- goto ansiview
-
- rem Display ANSI View help info
-
- :avhelp
- av /?
- pause
- goto ansiview
-
- rem Print REGISTER.DOC
-
- :printreg
- cls
- echo Ready printer and,
- pause
- copy REGISTER.DOC prn
- goto ansiview
-
- rem **** The END ****
-
- :end
- echo.
- echo.
-